home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_08_1985_Transactor_Publishing.d64 / 1541 spin2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  327b  |  11 lines
  1. 10 rem* 1541 motor spin routine *
  2. 20 print chr$(147)"hold [211][200][201][198][212] to spin drive motor"
  3. 30 print"press [195][212][210][204] to quit program"
  4. 40 open 15,8,15
  5. 50 for i=0 to 1
  6. 60 s0=s1:s1=(peek(653)=1)
  7. 70 if s1 and not(s0) then print#15,"m-e"chr$(126)chr$(249): rem motor on
  8. 80 if not(s1) and s0 then print#15,"m-e"chr$(232)chr$(249): rem motor off
  9. 90 i=-(peek(653)=4): next: rem until ctrl pressed
  10. 100 close 15
  11.